home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Devpac 2.12 disk 2.adf / include.strip / exec / ables.i next >
Text File  |  1987-03-31  |  1KB  |  62 lines
  1.     IFND EXEC_ABLES_I
  2. EXEC_ABLES_I  SET 1
  3.     IFND EXEC_TYPES_I
  4.     INCLUDE "exec/types.i"
  5.     ENDC !EXEC_TYPES_I
  6.     IFND EXEC_EXECBASE_I
  7.     INCLUDE "exec/execbase.i"
  8.     ENDC !EXEC_EXECBASE_I
  9. INT_ABLES   MACRO                       *
  10.      XREF    _intena
  11.      ENDM
  12. DISABLE     MACRO   *
  13.      IFC     '\1',''
  14.      MOVE.W  #$04000,_intena
  15.      ADDQ.B  #1,IDNestCnt(A6)
  16.      ENDC
  17.      IFNC    '\1',''
  18.      MOVE.L  4,\1
  19.      MOVE.W  #$04000,_intena
  20.      ADDQ.B  #1,IDNestCnt(\1)
  21.      ENDC
  22.      ENDM
  23. ENABLE      MACRO   *
  24.      IFC     '\1',''
  25.      SUBQ.B  #1,IDNestCnt(A6)
  26.      BGE.S   ENABLE\@
  27.      MOVE.W  #$0C000,_intena
  28. ENABLE\@:
  29.      ENDC
  30.      IFNC    '\1',''
  31.      MOVE.L  4,\1
  32.      SUBQ.B  #1,IDNestCnt(\1)
  33.      BGE.S   ENABLE\@
  34.      MOVE.W  #$0C000,_intena
  35. ENABLE\@:
  36.      ENDC
  37.      ENDM
  38. TASK_ABLES  MACRO
  39.      XREF    _LVOPermit
  40.      ENDM
  41. FORBID      MACRO
  42.      IFC     '\1',''
  43.      ADDQ.B  #1,TDNestCnt(A6)
  44.      ENDC
  45.      IFNC    '\1',''
  46.      MOVE.L  4,\1
  47.      ADDQ.B  #1,TDNestCnt(\1)
  48.      ENDC
  49.      ENDM
  50. PERMIT      MACRO
  51.      IFC     '\1',''
  52.      JSR     _LVOPermit(A6)
  53.      ENDC
  54.      IFNC    '\1',''
  55.      MOVE.L  A6,-(SP)
  56.      MOVE.L  4,A6
  57.      JSR     _LVOPermit(A6)
  58.      MOVE.L  (SP)+,A6
  59.      ENDC
  60.      ENDM
  61.     ENDC !EXEC_ABLES_I
  62.